home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / mailmen.arc / MAILMEN.PRG < prev    next >
Encoding:
Text File  |  1991-01-10  |  1.5 KB  |  69 lines
  1. *THIS PROGRAM IS CALLED MAILMEN.PRG-- IT HANDLES ALL SUB PROGRAMS TO OPERATE
  2. * MAILING LISTS. COPYRIGHT JULY 30,1983 BY PHILIP K. PERLMAN
  3. SET TALK OFF
  4. RELEASE ALL
  5. SET BELL OFF
  6. DO WHILE T
  7. USE
  8. ERASE
  9. SET FORMAT TO PRINTMEN
  10. STORE ' ' TO NEXT
  11. READ
  12. CLEAR GETS
  13.    IF VAL(NEXT) = 1
  14.      SET FORMAT TO SCREEN
  15.      DO MAILINP
  16.      RELEASE ALL
  17.    ELSE
  18.    IF VAL(NEXT) = 2
  19.      SET FORMAT TO SCREEN
  20.      DO MAILED
  21.      RELEASE ALL
  22.    ELSE
  23.    IF VAL(NEXT) = 3
  24.      SET FORMAT TO SCREEN
  25.      DO PRINTCAT
  26.      RELEASE ALL
  27.    ELSE
  28.    IF VAL(NEXT) = 4
  29.      SET FORMAT TO SCREEN
  30.      DO PRINTROL                               
  31.      RELEASE ALL
  32.    ELSE
  33.    IF VAL(NEXT) = 5
  34.      SET FORMAT TO SCREEN
  35.      DO PRINTLAB                                    
  36.      RELEASE ALL
  37.    ELSE
  38.    IF VAL(NEXT) = 6
  39.       SET FORMAT TO SCREEN
  40.       DO PRINTIND
  41.       RELEASE ALL
  42.    ELSE
  43.    IF VAL(NEXT) = 7
  44.       SET FORMAT TO SCREEN
  45.       DO XMASLAB
  46.       RELEASE ALL
  47.    ELSE
  48.    IF VAL(NEXT) = 8
  49.       SET FORMAT TO SCREEN
  50.       DO BIRTHDAY
  51.       RELEASE ALL
  52.    ELSE
  53.    IF VAL(NEXT) = 9
  54.       ERASE
  55.       QUIT
  56.    ELSE
  57.       LOOP
  58.    ENDIF
  59. ENDIF
  60. ENDIF
  61. ENDIF
  62. ENDIF
  63. ENDIF
  64. ENDIF
  65. ENDIF
  66. ENDIF
  67.    ENDDO
  68.  
  69.